home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 001a / qmdm_mse.zip / QMODEMMS.DEF < prev    next >
Text File  |  1991-11-03  |  36KB  |  804 lines
  1. ;------------------------------------------------------------------------------
  2. ;--      Q M o d e m   4.31     Microsoft     M o u s e   P r o g r a m      --
  3. ;--                                                                          --
  4. ;--                   Written by Rick Schaefer   Oct. 1990                   --
  5. ;--                   Modified by Larry Bennett  Nov. 1991                   --
  6. ;--                                                                          --
  7. ;--  This program was inspired by Bob Rapp whose mouse program I down-       --
  8. ;--  loaded from The Forbin Project BBS (319) 266-0540, home of Qmodem SST.  --
  9. ;--  Since this is my first attempt at writing a mouse program of this size, --
  10. ;--  any suggestions or comments would be very helpful and appreciated.      --
  11. ;--  There is no charge for this program because I know what it is like if   --
  12. ;--  you are used to using a mouse and suddenly have a program that doesn't  --
  13. ;--  support one.  This is for all those mouse enthusiasts out there!!!      --
  14. ;--                                                                          --
  15. ;--                                                                          --
  16. ;--  I (L.B.) have developed this software using the Microsoft 1.1 MAKEMENU  --
  17. ;--  compiler and have tested it with the Microsoft 6.14 mouse dirver.  It   --
  18. ;--  does NOT perform satisfactorily with the Microsoft 5.0 mouse driver.    --
  19. ;--                                                                          --
  20. ;--                        ENJOY!!!!!!!!                                     --
  21. ;--                        R. S. &  L.B.                                     --
  22. ;------------------------------------------------------------------------------
  23. ;--                                                                          --
  24. ;------------------------------------------------------------------------------
  25. ;--                                                                          --
  26. ;--   Note that a majority of the TEXT statements in the popup menus have    --
  27. ;--   been commented out.  They are left here for documentation purposes     --
  28. ;--   only (as an indication as to the "target" for the select statements).  --
  29. ;--                                                                          --
  30. ;------------------------------------------------------------------------------
  31.  
  32. ;--- Change these numbers to change mouse speed. Lower#=Faster Mouse:─┐
  33. BEGIN  LeftB,RightB,BothB,GoLeft,GoRight,UpM,DnM,150,50;<─────────────┘
  34.  
  35. LeftB:   EXECUTE RETURN                                  ;Always enter
  36. RightB:  EXECUTE ESCAPE                                  ;Always escape
  37.  
  38. GoLeft:    MATCH 25,17,,"F1-Topic Index",LeftM,GoLeft2       ;Left & Right
  39. GoLeft2:   MATCH 1, 26,,"═ Batch Upload",CtlLtArrow,GoLeft3  ;motion only in
  40. GoLeft3:   MATCH 1, 30,,"═ Setup Menu ",LeftM,GoLeft4        ;batch upload,
  41. GoLeft4:   MATCH 1, 26,,"═ Setup Menu -",LeftM,Noaction      ;Qinstall
  42. GoRight:   MATCH 25,17,,"F1-Topic Index",RightM,GoRight2     ;help or Qinstall
  43. GoRight2:  MATCH 1, 26,,"═ Batch Upload",CtlRtArrow,GoRight3 ;menus/screens 
  44. GoRight3:  MATCH 1, 30,,"═ Setup Menu ",RightM,GoRight4      ;  "   "   "
  45. GoRight4:  MATCH 1, 26,,"═ Setup Menu -",RightM,Noaction     ;  "   "   " 
  46.  
  47. UpM:       MATCH 1,34,,"═ Phone Book ═",UpArrow,UpM2      ;Up and down motion
  48. UpM2:      MATCH 25,17,,"F1-Topic Index",UpArrow,UpM3     ;only while in
  49. UpM3:      MATCH 1,26,,"═ Batch Upload",UpArrow,UpM4      ;phone book, help,
  50. UpM4:      MATCH 25,15,,"Arrows-Scroll",UpArrow,UpM5      ;batch entry, 
  51. UpM5:      MATCH 25,4,,"SCROLL-BACK",UpArrow,UpM6         ;Scroll Back,    
  52. UpM6:      MATCH 25,3,,"<dir>",UpArrow,UpM7               ;directory view
  53. UpM7:      MATCH 1, 30,,"═ Setup Menu ",UpArrow,UpM8      ;and Qinstall
  54. UpM8:      MATCH 1, 26,,"═ Setup Menu -",UpArrow,Noaction ;menus/screens
  55. DnM:       MATCH 1,34,,"═ Phone Book ═",DnArrow,DnM2      ;   "    "     "
  56. DnM2:      MATCH 25,17,,"F1-Topic Index",DnArrow,DnM3     ;   "    "     "
  57. DnM3:      MATCH 1,26,,"═ Batch Upload",DnArrow,DnM4      ;   "    "     "
  58. DnM4:      MATCH 25,15,,"Arrows-Scroll",DnArrow,DnM5      ;   "    "     "
  59. DnM5:      MATCH 25,4,,"SCROLL-BACK",DnArrow,DnM6         ;   "    "     "
  60. DnM6:      MATCH 25,3,,"<dir>",DnArrow,DnM7               ;   "    "     "
  61. DnM7:      MATCH 1, 30,,"═ Setup Menu ",DnArrow,DnM8      ;   "    "     "
  62. DnM8:      MATCH 1, 26,,"═ Setup Menu -",DnArrow,Noaction ;   "    "     "
  63.  
  64. ;-----------------------------------------------------------------------------
  65. ;   **** Define the screen matches for calling Popup Menus
  66.  
  67. BothB:     MATCH 13,28,,"Delete Entries",FonDel,Match1    ;Delete Fon entry or notes
  68. Match1:    MATCH 1,32,,"Download",DL,Match2               ;DownLoads
  69. Match2:    MATCH 1,33,,"Upload",UL,Match3                 ;Uploads
  70. Match3:    MATCH 11,36,,"Exit Qmodem",Exit,Match4         ;Exit Qmodem
  71. Match4:    MATCH 15,37,,"Redialer",Redialer,Match5        ;Redialer menu
  72. Match5:    MATCH 7,35,,"Set COM Port",ComPort,Match5f     ;Setup COM Port
  73. Match5f:   MATCH 2,30,,"Set Communic",ComPortf,Match6     ;Setup Com Port
  74. Match6:    MATCH 7,26,,"Communications",ComPort2,Match7   ;SetUp Baud Rate etc
  75. Match7:    MATCH 7,35,,"Set Emulation",SetEm,Match8       ;Keyboard Emnulation
  76. Match8:    MATCH 5,33,,"Table",TranTable,Match9           ;Translation Talbe
  77. Match9:    MATCH 17,4,,"Valid",Macro2,Match10             ;Fkey editor scrn
  78. Match10:   MATCH 2,29,,"Function Key",Macro1,Match11      ;Function key Macros
  79. Match11:   MATCH 11,33,,"Change Log",ChgLog,Match12       ;Change Logged Drive
  80. Match12:   MATCH 1,26,,"═ Batch Upload",BatchUL,Match13   ;BatchUL window
  81. Match13:   MATCH 1,34,,"═ Phone Book ═",Fonbook,Match14   ;PhoneBook Commands
  82. Match14:   MATCH 11,37,,"Hangup",HangUp,Matcha            ;Hangup modem?
  83. ;-----------------------------------------------------------------------------
  84. ;----- ****  The following are Match commands to recognize the 7 Terminal ****
  85. ;----- ****  Emulations used by Qmodem 4.2d                               ****
  86. ;-----------------------------------------------------------------------------
  87.  
  88. Matcha:    MATCH 25,2,,"ANSI",PopHelp,Matchb              ;Match to ANSI
  89. Matchb:    MATCH 25,2,,"Name:",PopHelp,Matchc             ;Alternate Match
  90. Matchc:    MATCH 25,2,,"TTY",PopHelp,Matchd               ;Match to TTY
  91. Matchd:    MATCH 25,2,,"VT100",PopHelp,Matche             ;Match to VT100
  92. Matche:    MATCH 25,2,,"TVI925",PopHelp,Matchf            ;Match to TVI925
  93. Matchf:    MATCH 25,2,,"DBUG_H",PopHelp,Matchg            ;Match to DBUG
  94. Matchg:    MATCH 25,2,,"DBUG_A",PopHelp,Matchh            ;Match to DBUG
  95. Matchh:    MATCH 25,2,,"AVATAR",PopHelp,Matchi            ;Match to AVATAR
  96.  
  97. ;-----------------------------------------------------------------------------
  98. ; The following match statements check for the Command (Help) menu and Help Screens
  99.  
  100. ;-----------------------------------------------------------------------------
  101. Matchi:    MATCH 1,33,,"═ COMMAND MENU ═",PopHelp2,Matchj
  102. Matchj:    MATCH 25,17,,"F1-Topic Index",HelpM,Matchl
  103. Matchl:    MATCH 1,31,,"═ Full Screen Edit ═",FonbookE,Matchm
  104. Matchm:    MATCH 25,4,,"SCROLL-BACK",ScrollBack,Noaction
  105.  
  106. ;------------------------  Initial help screen  ---------------------------------------
  107. PopHelp:   EXECUTE Home                                   ;Home - Show Help menu
  108. PopHelp2:  Popup 1, 1, normal
  109. ;TEXT "╒════════════════════════════════ COMMANDS ════════════════════════════════════╕"
  110. ;TEXT "│ ─────────────────── BEFORE ───────────────────    ──────── TOGGLES ───────── │"
  111. ;TEXT "│ Alt-D  Phone Book        Alt-G  Term Emulation    Alt-0  Session Log         │"
  112. ;TEXT "│ ─────────────────── DURING ───────────────────    Alt-1  Backspace DEL/^H    │"
  113. ;TEXT "│ Alt-C  Clear Screen      ^Home  Capture File                                 │"
  114. ;TEXT "│ Alt-F  Execute Script    ^End   Send BREAK        Alt-3  Debug Status Info   │"
  115. ;TEXT "│ Alt-Q  QuickLearn         PgUp  Upload Files                                 │"
  116. ;TEXT "│ Alt-S  Split Screen       PgDn  Download Files    Alt-5  Host Mode           │"
  117. ;TEXT "│ Alt-T  Screen Dump                                Alt-6  Batch Entry Window  │"
  118. ;TEXT "│       Scroll Back                                Alt-8  Hi-Bit Strip        │"
  119. ;TEXT "│ ─────────────────── AFTER ────────────────────    Alt-9  Printer Echo        │"
  120. ;TEXT "│ Alt-H  Hangup Modem      Alt-X  Exit Qmodem       Alt-B  Beeps & Bells       │"
  121. ;TEXT "│                                                   Alt-E  Half/Full Duplex    │"
  122. ;TEXT "│ ─────────────────── SETUP ────────────────────    Alt-I  Order Information   │"
  123. ;TEXT "│ Alt-A  Translate Table   Alt-N  Configuration     Alt-M  ANSI Music          │"
  124. ;TEXT "│ Alt-J  Function Keys     Alt-P  Change Baud Rate  Alt-U  Scrollback Record   │"
  125. ;TEXT "│ Alt-K  Change COM Port                            Alt-Z  XON/XOFF Flow Ctrl  │"
  126. ;TEXT "│                                                   Alt-=  DoorWay Mode        │"
  127. ;TEXT "│ ──────────────────── DOS ─────────────────────    Alt--  Status Lines        │"
  128. ;TEXT "│ Alt-L  Change Drive      Alt-V  View/Edit File    ShTab  CR/CRLF Mode        │"
  129. ;TEXT "│ Alt-O  Change Directory  Alt-W  List Directory    Alt─┘ Status Line Info    │"
  130. ;TEXT "│ Alt-R  DOS Shell         Alt-Y  Delete File                                  │"
  131. ;TEXT "│                                                                              │"
  132. ;TEXT "╘════════════ Qmodem SST Version 4.2# Production  Compiled 10/25/90 ═══════════╛"
  133.               SELECT  3,  2, 19, AltD
  134.               SELECT  5,  2, 21, AltC
  135.               SELECT  6,  2, 23, AltF
  136.               SELECT  7,  2, 19, AltQ
  137.               SELECT  8,  2, 21, AltS
  138.               SELECT  9,  2, 20, AltT
  139.               SELECT 10,  2, 20, UpArrow
  140.               SELECT 12,  2, 21, AltH
  141.               SELECT 15,  2, 24, AltA
  142.               SELECT 16,  2, 22, AltJ
  143.               SELECT 17,  2, 24, AltK
  144.               SELECT 20,  2, 21, AltL
  145.               SELECT 21,  2, 25, AltO
  146.               SELECT 22,  2, 18, AltR
  147.               SELECT  3, 27, 23, AltG
  148.               SELECT  5, 27, 21, CtlHome
  149.               SELECT  6, 27, 19, CtlEnd
  150.               SELECT  7, 28, 20, PgUp
  151.               SELECT  8, 28, 22, PgDn
  152.               SELECT 12, 27, 20, AltX
  153.               SELECT 15, 27, 22, AltN
  154.               SELECT 16, 27, 25, AltP
  155.               SELECT 20, 27, 23, AltV
  156.               SELECT 21, 27, 23, AltW
  157.               SELECT 22, 27, 20, AltY
  158.               SELECT  3, 52, 20, Alt0
  159.               SELECT  4, 52, 25, Alt1
  160.               SELECT  6, 52, 26, Alt3
  161.               SELECT  8, 52, 18, Alt5
  162.               SELECT  9, 52, 27, Alt6
  163.               SELECT 10, 52, 20, Alt8
  164.               SELECT 11, 52, 20, Alt9
  165.               SELECT 12, 52, 21, AltB
  166.               SELECT 13, 52, 24, AltE
  167.               SELECT 14, 52, 25, AltI
  168.               SELECT 15, 52, 18, AltM
  169.               SELECT 16, 52, 25, AltU
  170.               SELECT 17, 52, 26, AltZ
  171.               SELECT 18, 52, 20, AltEqual
  172.               SELECT 19, 52, 20, AltMinus
  173.               SELECT 20, 52, 20, ShTab
  174.               SELECT 21, 52, 24, Alt13
  175.               SELECT 25, 31,  9, F1
  176.               SELECT 25, 42, 29, ESCAPE
  177.             PEND
  178.  
  179. ;----------------  Popup for help menus ----------------------------------------
  180. HelpM:       MATCH 24,68,,"PgUp/PgDn",HelpMupdn,HelpM2
  181. HelpM2:      Match 24,68,,"PgUp",HelpMup,HelpM3
  182. HelpM3:      MATCH 24,73,,"PgDn",HelpMdn,HelpMnorm
  183.  
  184. HelpMupdn:   Popup 24, 16, normal
  185.               SELECT 1,58,5,PgDn
  186.               SELECT 1,52,5,PgUp
  187.               SELECT 2,1,16,F1
  188.               SELECT 2,19,22,AltF1
  189.               SELECT 2,42,10,ESCAPE
  190.              PEND
  191.  
  192. HelpMup:     Popup 24, 16, normal
  193.               SELECT 1,52,5,PgUp
  194.               SELECT 2,1,16,F1
  195.               SELECT 2,19,22,AltF1
  196.               SELECT 2,42,10,ESCAPE
  197.              PEND
  198.  
  199. HelpMdn:     Popup 24, 16, normal
  200.               SELECT 1,58,5,PgDn
  201.               SELECT 2,1,16,F1
  202.               SELECT 2,19,22,AltF1
  203.               SELECT 2,42,10,ESCAPE
  204.              PEND
  205.  
  206. HelpMnorm:   Popup 24, 16, normal
  207.               SELECT 2,1,16,F1
  208.               SELECT 2,19,22,AltF1
  209.               SELECT 2,42,10,ESCAPE
  210.              PEND
  211.  
  212. ;----------------  Popup for Phone book commands  ------------------------------
  213. Fonbook:     MATCH  6,32,,"═ Revise Entry ═",FonbookR,Fonbook2
  214. Fonbook2:    MATCH  5,29,,"═ Revise Prefixes ═",FonbookP,Fonbook3
  215. Fonbook3:    MATCH 19,23,,"══════",Noaction,Fonbook4
  216. Fonbook4:    MATCH 17,52,,"══════",Noaction,Fonbook5
  217. Fonbook5:    MATCH 25,13,," F1-Help",FonbookE,FonbookM
  218. FonbookE:    MATCH 6,35,,"═Warning═",Noaction,FonbookE2
  219.  
  220. FonbookM:    Popup 15, 1, normal
  221. ;TEXT "╒══════════════════════════════════ Commands ══════════════════════════════════╕"
  222. ;TEXT "│            Entries                    Dial                   FON             │"
  223. ;TEXT "│   ^SP/SP - Tag-P/Tag-Untag        M - Manual Dial        F - Find Tezt       │"
  224. ;TEXT "│    I-Ins - Insert New Entry                              A - Find Again      │"
  225. ;TEXT "│ ^D/D-Del - Delete Tagged/Bar          Edit               L - Load            │"
  226. ;TEXT "│     ^R/R - Revise Tagged/Bar      E - Edit Prefixes      O - Other Info      │"
  227. ;TEXT "│        T - Tag Multiple           N - Attached Note   ^P/P - Print 132/80    │"
  228. ;TEXT "│        U - Untag All              V - Linked Script      S - Sort            │"
  229. ;TEXT "│        Q - QuickLearn                                   ^U - Undo            │"
  230. ;TEXT "╘══════════════════════════════════════════════════════════════════════════════╛"
  231.               SELECT  2, 40,  6. RETURN
  232.               SELECT  3,  4, 26, CheckSpace
  233.               SELECT  4,  5, 26, INS
  234.               SELECT  5,  2, 30, CheckDlt
  235.               SELECT  6,  6, 26, CheckRevise
  236.               SELECT  7,  9, 18, T
  237.               SELECT  8,  9, 15, U
  238.               SELECT  9,  9, 16, Q
  239.               SELECT  3, 36, 17, M
  240.               SELECT  6, 36, 19, E
  241.               SELECT  7, 36, 19, N
  242.               SELECT  8, 36, 19, V
  243.               SELECT  3, 59, 15, F
  244.               SELECT  4, 59, 16, A
  245.               SELECT  5, 59, 10, L
  246.               SELECT  6, 59, 16, O
  247.               SELECT  7, 56, 21, CheckPrint
  248.               SELECT  8, 59, 10, S
  249.               SELECT  9, 58, 11, CtlU
  250.               SELECT 10, 69,  9, F1
  251.               SELECT 11, 49, 12, RETURN
  252.               SELECT 11, 62, 10, ESCAPE
  253.             PEND
  254.  
  255. FonbookE2:   Popup 25, 1, normal          ;Notes - editor commands
  256.               SELECT 1,13,9,F1            ;  "       "       "
  257.               SELECT 1,22,9,F2            ;  "       "       "
  258.               SELECT 1,31,8,F3            ;  "       "       "
  259.               SELECT 1,39,14,ESCAPE       ;  "       "       "
  260.               SELECT 1,53,17,F10          ;  "       "       "
  261.              PEND
  262.  
  263. FonbookP:   Popup 1,1,normal         ;Revise Prefixes
  264.              SELECT 25,35,10,F10     ;   "      "
  265.              SELECT 16,47,9,F1       ;   "      "
  266.              SELECT 25,46,26,ESCAPE  ;   "      "
  267.             PEND
  268.  
  269. FonbookR:   MATCH 25,41,,"F2",FonbookR2,FonbookR1
  270. FonbookR1:  Popup 1,1,normal         ;Revise Phone book commands
  271.              SELECT 25,51,12,F10     ;  "      "     "     "
  272.              SELECT 19,51, 9,F1      ;  "      "     "     "
  273.              SELECT 25,64,13,ESCAPE  ;  "      "     "     "
  274.             PEND
  275. FonbookR2:  Popup 1,1,normal         ;Revise Phone book commands
  276.              SELECT 25,39,11,F2      ;  "      "     "     "
  277.              SELECT 25,51,12,F10     ;  "      "     "     "
  278.              SELECT 19,51, 9,F1      ;  "      "     "     "
  279.              SELECT 25,64,13,ESCAPE  ;  "      "     "     "
  280.             PEND
  281.  
  282. ;-----------------  These are the neccessary menus to decide what  -----------
  283. ;-----------------  functions the mouse user desires               -----------
  284. CheckSpace:      MENU " ^Sp or Sp ",15,25,normal
  285.                      OPTION "  Tag/Untag ",SP
  286.                      OPTION "  Tag for dial without Prefix Code ",CtlSp
  287.                      OPTION "  ESC  Exit, no changes   ",ESCAPE
  288.                  MEND
  289.  
  290. CheckDlt:        MATCH 3,15,," 0 ",D,Checkdlt2
  291. CheckDlt2:       MENU " ^D or D ",15,25,normal
  292.                      OPTION " ^D Delete multiple entries ",CtlD
  293.                      OPTION "  D Delete bar entry      ",D
  294.                      OPTION "  ESC  Exit, no changes   ",ESCAPE
  295.                  MEND
  296.  
  297. CheckRevise:     MATCH 3,15,," 0 ",R,CheckRevise2
  298. CheckRevise2:    MENU " ^R or R ",15,25,normal
  299.                       OPTION " ^R Revise muliple entries ",CtlR
  300.                       OPTION "  R Revise bar entry       ",R
  301.                       OPTION "  ESC  Exit, no revisions  ",ESCAPE
  302.                  MEND
  303.  
  304. CheckPrint:      MENU " ^P or P ",15,25,normal
  305.                       OPTION " ^P print at 132 char/in ",CtlP
  306.                       OPTION "  P print at 80 char/in  ",P
  307.                       OPTION "  ESC  Exit, no listing  ",ESCAPE
  308.                  MEND
  309. ;--------------------------  Popup Men for D/L protocols  ---------------
  310. ;-- May have to be edited to reflect the d/l protocols installed on you system
  311. DL:           Popup 1, 28, normal
  312. ;TEXT "╒══ Download Protocols ══╕"
  313. ;TEXT "│                        │"
  314. ;TEXT "│ A - Ascii              │"
  315. ;TEXT "│ X - Xmodem             │"
  316. ;TEXT "│ C - Xmodem CRC         │"
  317. ;TEXT "│ R - Xmodem Relaxed     │"
  318. ;TEXT "│ O - Xmodem-1K          │"
  319. ;TEXT "│ Y - Ymodem Batch       │"
  320. ;TEXT "│ Z - Zmodem Batch       │"
  321. ;TEXT "╞═══════ External ═══════╡"
  322. ;TEXT "│ S - SEAlink            │"
  323. ;TEXT "│ B - CompuServ B+       │"
  324. ;TEXT "│ K - Kermit             │"
  325. ;TEXT "│ W - WXmodem            │"
  326. ;TEXT "│ Your Choice ?"
  327. ;TEXT "╘════════════════════════╛"
  328.               SELECT 15,2,17,RETURN ;<=== Increment/decrement the "15"
  329.               SELECT 3,2,11,A       ;     depending on the number of external
  330.               SELECT 4,2,12,X       ;     protocols that are added/deleted.
  331.               SELECT 5,2,16,C
  332.               SELECT 6,2,20,R
  333.               SELECT 7,2,15,O
  334.               SELECT 8,2,18,Y
  335.               SELECT 9,2,18,Z
  336.               SELECT 11,2,13,S     ;\
  337.               SELECT 12,2,18,B     ; \  These are the external protocol
  338.               SELECT 13,2,12,K     ; /  selection statements.  Change, add
  339.               SELECT 14,2,13,W     ;/   and delete to fit your installation.
  340. PEND
  341. ;-------------------   UpLoad protocols  -------------------------------
  342. ;---      May need to change just like the d/l protocols
  343. UL:       Popup 1, 28, normal
  344. ;TEXT "╒═══ Upload Protocols ═══╕"
  345. ;TEXT "│ A - Ascii              │"
  346. ;TEXT "│ X - Xmodem             │"
  347. ;TEXT "│ C - Xmodem CRC         │"
  348. ;TEXT "│ R - Xmodem Relaxed     │"
  349. ;TEXT "│ O - Xmodem-1K          │"
  350. ;TEXT "│ Y - Ymodem Batch       │"
  351. ;TEXT "│ Z - Zmodem Batch       │"
  352. ;TEXT "╞═══════ External ═══════╡"
  353. ;TEXT "│ S - SEAlink            │"
  354. ;TEXT "│ B - CompuServ B+       │"
  355. ;TEXT "│ K - Kermit             │"
  356. ;TEXT "│ W - WXmodem            │"
  357. ;TEXT "│ Your Choice ?"
  358. ;TEXT "╘════════════════════════╛"
  359.               SELECT 14,2,17,RETURN ;<=== Increment/decrement the "14"
  360.               SELECT 2,2,11,A       ;     depending on the number of external
  361.               SELECT 3,2,12,X       ;     protocols that are added/deleted.
  362.               SELECT 4,2,16,C
  363.               SELECT 5,2,20,R
  364.               SELECT 6,2,15,O
  365.               SELECT 7,2,18,Y
  366.               SELECT 8,2,18,Z
  367.               SELECT 10,2,13,S      ;\
  368.               SELECT 11,2,18,B      ; \ These are the external protocol
  369.               SELECT 12,2,12,K      ; / selection statements.  Change, add
  370.               SELECT 13,2,13,W      ;/  and delete to fit your installation.
  371. PEND
  372. ;------------------------   Exit Selection menu  --------------------------
  373.  
  374. ;Exit:       Popup  10,20,normal                      ;<=== Original popup
  375. ;TEXT "╒═══════════ Exit Qmodem? ═════════════╕"      ;     menu removed to
  376. ;TEXT "│      Y - Drop DTR & Exit to DOS      │"      ;     use the entries
  377. ;TEXT "│                                      │"      ;     displayed on
  378. ;TEXT "│      X - DTR up & Exit to Dos        │"      ;     QMODEM's status
  379. ;TEXT "│                                      │"      ;     line.
  380. ;TEXT "│      N - Remain in Qmodem            │"
  381. ;TEXT "╘══════════════════════════════════════╛"
  382. ;              SELECT 2,7,28,Y
  383. ;              SELECT 4,7,26,X
  384. ;              SELECT 6,7,22,N
  385.  
  386. Exit:       Popup   25,1,normal
  387.               SELECT 1,4,21,Y
  388.               SELECT 1,26,27,N
  389.               SELECT 1,54,25,X
  390.             PEND
  391. ;-------------------------   Redialer  --------------------------------------
  392. ;Redialer:    Popup 16, 43, bold                      ;<=== Original popup
  393. ;              TEXT "╒═══════════════╕"               ;     menu removed to
  394. ;              TEXT "│ [C]ycle       │"               ;     use the entries
  395. ;              TEXT "│ [K]ill        │"               ;     displayed on
  396. ;              TEXT "│ e[X]tend time │"               ;     QMODEM's status
  397. ;              TEXT "│ [ESC] abort   │"               ;     line.
  398. ;              TEXT "╘═══════════════╛"
  399. ;                     SELECT 2,2,9,C
  400. ;                     SELECT 3,2,8,K
  401. ;                     SELECT 4,2,15,X
  402. ;                     SELECT 5,2,13,ESCAPE
  403.  
  404.  
  405. Redialer:         MATCH 25,21,,"Cycle",Redialer1,Redialer2
  406. Redialer1:        Popup 25,1,normal
  407.                       SELECT 1,37,16,X
  408.                       SELECT 1,18,9,C
  409.                       SELECT 1,28,8,K
  410.                       SELECT 1,54,10,ESCAPE
  411.                   PEND
  412.  
  413. Redialer2:        Popup 25,1,normal
  414.                       SELECT 1,46,10,ESCAPE
  415.                       SELECT 1,27,9,C
  416.                       SELECT 1,37,8,K
  417.                   PEND
  418.  
  419. ;---------------------------  Change Com Port  ------------------------
  420. ComPort:        Popup 7, 24, normal
  421. ;TEXT "╒═════════ Set COM Port ══════════╕"
  422. ;TEXT "│    Choose Active COM port       │"
  423. ;TEXT "│                                 │"
  424. ;TEXT "│ 1  COM1  Base(03F8) Irq(04)     │"
  425. ;TEXT "│ 2  COM2  Base(02F8) Irq(03)     │"
  426. ;TEXT "│                                 │"
  427. ;TEXT "│ Your choice :                   │"
  428. ;TEXT "╘═════════════════════════════════╛"
  429.               SELECT 4,2,29,K1
  430.               SELECT 5,2,29,K2
  431.          PEND
  432.  
  433. ComPortf:      Popup 2, 24, normal    ; Qmodem 4.2f
  434.               SELECT 4,2,29,K1
  435.               SELECT 5,2,29,K2
  436.          PEND
  437. ;---------------------------  Communication Parameters menu  -----------------------
  438. ComPort2:        Popup 7, 12, normal
  439. ;TEXT "╒════════════ Communications Port Setup ═════════════╕"
  440. ;TEXT "│                                                    │"
  441. ;TEXT "│                                                    │"
  442. ;TEXT "│       Speed             Parity      Data     Stop  │"
  443. ;TEXT "│ A - 110   F - 9600     K - Even    P - 7    R - 1  │"
  444. ;TEXT "│ B - 300   G - 19200    L - Odd     Q - 8    S - 2  │"
  445. ;TEXT "│ C - 1200  H - 38400    M - Mark                    │"
  446. ;TEXT "│ D - 2400  I - 57600    N - None                    │"
  447. ;TEXT "│ E - 4800  J - 115200   O - Space                   │"
  448. ;TEXT "│                                                    │"
  449. ;TEXT "╘════════════════════════════════════════════════════╛"
  450.               SELECT 5,2,9,A
  451.               SELECT 6,2,9,B
  452.               SELECT 7,2,10,C
  453.               SELECT 8,2,10,D
  454.               SELECT 9,2,10,E
  455.               SELECT 5,12,10,F
  456.               SELECT 6,12,11,G
  457.               SELECT 7,12,11,H
  458.               SELECT 8,12,11,I
  459.               SELECT 9,12,12,J
  460.               SELECT 5,25,10,K
  461.               SELECT 6,25,9,L
  462.               SELECT 7,25,10,M
  463.               SELECT 8,25,10,N
  464.               SELECT 9,25,11,O
  465.               SELECT 5,37,7,P
  466.               SELECT 6,37,7,Q
  467.               SELECT 5,46,7,R
  468.               SELECT 6,46,7,S
  469.        PEND
  470. ;--------------------------  Keyboard Emulation  -----------------------
  471. SetEm:              Popup 7, 24, normal
  472. ;TEXT "╒═════════ Set Emulation ═════════╕"
  473. ;TEXT "│    Choose Active Emulation      │"
  474. ;TEXT "│                                 │"
  475. ;TEXT "│           1  TTY                │"
  476. ;TEXT "│           2  ANSI               │"
  477. ;TEXT "│           3  VT100              │"
  478. ;TEXT "│           4  TVI925             │"
  479. ;TEXT "│           5  DBUG_A             │"
  480. ;TEXT "│           6  DBUG_H             │"
  481. ;TEXT "│           7  AVATAR             │"
  482. ;TEXT "│                                 │"
  483. ;TEXT "│ Your choice :                   │"
  484. ;TEXT "╘═════════════════════════════════╛"
  485.               SELECT 5,12,9,K2
  486.               SELECT 4,12,8,K1
  487.               SELECT 6,12,10,K3
  488.               SELECT 7,12,11,K4
  489.               SELECT 8,12,11,K5
  490.               SELECT 9,12,11,K6
  491.               SELECT 10,12,11,K7
  492. PEND
  493. ;---------------------  Translation Table selections  ------------------
  494. TranTable:        Popup 5, 25, normal
  495. ;TEXT "╒══════ Table Selection ══════╕"
  496. ;TEXT "│                             │"
  497. ;TEXT "│    Select Table to Edit     │"
  498. ;TEXT "│                             │"
  499. ;TEXT "│         1 -  INPUT          │"
  500. ;TEXT "│         2 -  OUTPUT         │"
  501. ;TEXT "│                             │"
  502. ;TEXT "│  Your Choice ?              │"
  503. ;TEXT "╘═════════════════════════════╛"
  504.               SELECT 5,10,12,K1
  505.               SELECT 6,10,13,K2
  506. PEND
  507. ;-------------------------  Function key Operations  ----------------------------------
  508. ;-------                       For Macro's                                    ---------
  509. ;--------------------------------------------------------------------------------------
  510. Macro1:                  Popup 18, 2, normal
  511.  
  512. ;TEXT "│                                                                            │"
  513. ;TEXT "│ 1 - Normal   2 - Shift   3 - Ctrl   4 - Alt   L - Load    ESC - Exit       │"
  514. ;TEXT "│                                                                            │"
  515. ;TEXT "│ Your Choice ?                                                              │"
  516. ;TEXT "╘════════════════════════════════════════════════════════════════════════════╛"
  517.               SELECT 2,2,12,K1
  518.               SELECT 2,15,11,K2
  519.               SELECT 2,27,10,K3
  520.               SELECT 2,38,9,K4
  521.               SELECT 2,48,10,L
  522.               SELECT 2,60,12,ESCAPE
  523. PEND
  524. ;--------------------------  Fkey commands  --------------------------------
  525. Macro2:     Popup 17, 1, normal
  526. TEXT " " ;│ Valid Edit Keys    :   INS - Insert mode Toggle      - Field Up           │"
  527. TEXT " " ;│                        DEL - Delete Character        - Field Down         │"
  528. TEXT " " ;│                         ─ - Character Left         ^─- Word Left         │"
  529. TEXT " " ;│                         ─ - Character Right        ^─- Word Right        │"
  530. TEXT " " ;│ Special Characters :    ^M = [ENTER]                ^~ = ½ second delay    │"
  531. TEXT " " ;╘════════════════════════════════════════════════════════════════════════════╛"
  532. TEXT "   Macro Commands     :   @SCRIPT   @SHELL   @SHELLX   @DIAL   @HELP   @EDIT"
  533. TEXT "                          @STAMP    $PASSWORD"
  534.                 SELECT 7,26,9,Script
  535.                 SELECT 7,36,8,Shell
  536.                 SELECT 7,45,9,ShellX
  537.                 SELECT 7,55,7,Dial
  538.                 SELECT 7,63,7,Help
  539.                 SELECT 7,71,7,Edit
  540.                 SELECT 8,26,8,Stamp
  541.                 SELECT 8,36,11,Password
  542.                 SELECT 1,25,26,INS
  543.                 SELECT 2,25,24,DEL
  544.                 SELECT 3,25,22,LeftM
  545.                 SELECT 4,25,23,RightM
  546.                 SELECT 5,25,16,ScrENTER
  547.                 SELECT 1,55,14,UpArrow
  548.                 SELECT 2,55,16,DnArrow
  549.                 SELECT 3,55,16,CtlLtArrow
  550.                 SELECT 4,55,17,CtlRtArrow
  551.                 SELECT 5,55,21,ScrPAUSE
  552.                 SELECT 9,37,10,F10
  553.                 SELECT 9,50,24,ESCAPE
  554. PEND
  555. ;------------------------------   Change Drive Menu  -------------------------
  556. ChgLog:      POPUP 13,29,normal
  557. TEXT "╞══ Choose New Drive ══╡"
  558. TEXT "│ Drive A:    Drive E: │"
  559. TEXT "│ Drive B:    Drive F: │"
  560. TEXT "│ Drive C:    Drive G: │"
  561. TEXT "│ Drive D:    Drive H: │"
  562. TEXT "╘══════════════════════╛"
  563.         SELECT 2,2,10,A
  564.         SELECT 3,2,10,B
  565.         SELECT 4,2,10,C
  566.         SELECT 5,2,10,D
  567.         SELECT 2,14,10,E
  568.         SELECT 3,14,10,F
  569.         SELECT 4,14,10,G
  570.         SELECT 5,14,10,H
  571. PEND
  572. ;------------------------  Batch UL window menu  --------------------------
  573. BatchUL:      MATCH 25,49,,"F10-Save to Disk",BatchUL1,BatchUL2
  574.  
  575. ;BatchUL1:          POPUP 7,20,normal  ;This menu is called if user is Off-Line
  576. ;TEXT "╒═══════ Batch UpLoad Options ═════════╕"
  577. ;TEXT "│                                      │"
  578. ;TEXT "│  F2 - Pick List   F3  - Last Found   │"
  579. ;TEXT "│  F4 - Clear       F10 - Save to Disk │"
  580. ;TEXT "│      ESC - Exit without Saving       │"
  581. ;TEXT "│                                      │"
  582. ;TEXT "│                                      │"
  583. ;TEXT "╘══════════════════════════════════════╛"
  584. ;              SELECT 3,3,16,F2
  585. ;              SELECT 3,19,18,F3
  586. ;              SELECT 4,3,12,F4
  587. ;              SELECT 4,20,20,F10
  588. ;              SELECT 5,7,27,ESCAPE
  589. ;PEND
  590.  
  591. BatchUL1:    Popup 1,1,normal
  592.                SELECT 25, 6,14,F2
  593.                SELECT 25,21,15,F3
  594.                SELECT 25,37,10,F4
  595.                SELECT 25,48,18,F10
  596.                SELECT 25,67,10,ESCAPE
  597.                SELECT 22,67, 9,F1
  598.              PEND
  599.  
  600. ;BatchUL2:          POPUP 7,20,normal  ;This menu is called if user is On-Line
  601.  
  602. ;TEXT "╒═══════ Batch UpLoad Options ═════════╕"      ;<=== Original popup
  603. ;TEXT "│                                      │"      ;     menu removed to
  604. ;TEXT "│  F2 - Pick List   F3  - Last Found   │"      ;     use the prompts
  605. ;TEXT "│  F4 - Clear       F10 - Upload Batch │"      ;     displayed on
  606. ;TEXT "│      ESC - Exit without Saving       │"      ;     QMODEM's status
  607. ;TEXT "│                                      │"      ;     line.
  608. ;TEXT "│                                      │"
  609. ;TEXT "╘══════════════════════════════════════╛"
  610. ;              SELECT 3,3,16,F2
  611. ;              SELECT 3,19,18,F3
  612. ;              SELECT 4,3,12,F4
  613. ;              SELECT 4,20,20,F10
  614. ;              SELECT 5,7,27,ESCAPE
  615. ;PEND
  616.  
  617. BatchUL2:    Popup 1,1,normal
  618.                SELECT 25, 9,14,F2
  619.                SELECT 25,24,15,F3
  620.                SELECT 25,40,10,F4
  621.                SELECT 25,51,12,F10
  622.                SELECT 25,64,10,ESCAPE
  623.                SELECT 22,67, 9,F1
  624.              PEND
  625. ;-------------------------   Delete Notes or Entry Menu  -------------------------------
  626. FonDel:         POPUP 13,25,normal
  627. ;TEXT "╒═ Delete Entries and/or Notes ══╕"
  628. ;TEXT "│                                │"
  629. ;TEXT "│      1.  Notes Only            │"
  630. ;TEXT "│      2.  Entries & Notes       │"
  631. ;TEXT "│    ESC.  Return to Directory   │"
  632. ;TEXT "│                                │"
  633. ;TEXT "│ Your Choice ?                  │"
  634. ;TEXT "╘════════════════════════════════╛"
  635.               SELECT 3,7,16,K1
  636.               SELECT 4,7,21,K2
  637.               SELECT 5,5,27,ESCAPE
  638. PEND
  639. ;-------------------------  If verify hangup activated,  Hangup command   --------------
  640. ;HangUp:      POPUP 11,26,normal
  641.  
  642. ;TEXT "╒═════ Hangup Modem? ══════╕"                  ;<=== Original popup
  643. ;TEXT "│ [Y]es - Hangup           │"                  ;     menu removed to
  644. ;TEXT "│ [N]o  - Don't hangup     │"                  ;     use the prompts
  645. ;TEXT "╘══════════════════════════╛"                  ;     displayed on
  646. ;              SELECT 2,2,16,Y                        ;     QMODEM's status
  647. ;              SELECT 3,2,22,N                        ;     line.
  648.  
  649. HangUp:       Popup 25,1,normal
  650.                SELECT 1,24,26,Y
  651.                SELECT 1,51,8,N
  652.              PEND
  653.  
  654. ;----------------------------Scroll Back--------------------------------------
  655. ScrollBack:   MATCH 25,20,,"PgUp PgDn",ScrollBackUD,ScrollBack2
  656. ScrollBack2:  MATCH 25,20,,"PgUp     ",ScrollBackU, ScrollBack3
  657. ScrollBack3:  MATCH 25,20,,"     PgDn",ScrollBackD, ScrollBackX
  658.  
  659. ScrollBackUD: Popup 25,1,normal
  660.                SELECT 1,19,6,PgUp
  661.                SELECT 1,24,6,PgDn
  662.                SELECT 1,57,10,ESCAPE
  663.                SELECT 1,48,9,C
  664.                SELECT 1,40,8,S
  665.                SELECT 1,31,9,F1
  666.               PEND
  667.  
  668. ScrollBackU:  Popup 25,1,normal
  669.                SELECT 1,19,6,PgUp
  670.                SELECT 1,57,10,ESCAPE
  671.                SELECT 1,48,9,C
  672.                SELECT 1,40,8,S
  673.                SELECT 1,31,9,F1
  674.               PEND
  675.  
  676. ScrollBackD:  Popup 25,1,normal
  677.                SELECT 1,24,6,PgDn
  678.                SELECT 1,57,10,ESCAPE
  679.                SELECT 1,48,9,C
  680.                SELECT 1,40,8,S
  681.                SELECT 1,31,9,F1
  682.               PEND
  683.  
  684. ScrollBackX:  Popup 25,1,normal
  685.                SELECT 1,57,10,ESCAPE
  686.                SELECT 1,48,9,C
  687.                SELECT 1,40,8,S
  688.                SELECT 1,31,9,F1
  689.               PEND
  690.  
  691. ;---------------------------------------------------------------------------------------
  692. ;             Key Definitions
  693. ;-------------------------------------------------------------------------------------
  694.  
  695. K1:           TYPE "1"
  696. K2:           TYPE "2"
  697. K3:           TYPE "3"
  698. K4:           TYPE "4"
  699. K5:           TYPE "5"
  700. K6:           TYPE "6"
  701. K7:           TYPE "7"
  702. K8:           TYPE "8"
  703. A:            TYPE "A"
  704. B:            TYPE "B"
  705. C:            TYPE "C"
  706. D:            TYPE "D"
  707. E:            TYPE "E"
  708. F:            TYPE "F"
  709. G:            TYPE "G"
  710. H:            TYPE "H"
  711. I:            TYPE "I"
  712. J:            TYPE "J"
  713. K:            TYPE "K"
  714. L:            TYPE "L"
  715. M:            TYPE "M"
  716. N:            TYPE "N"
  717. O:            TYPE "O"
  718. P:            TYPE "P"
  719. Q:            TYPE "Q"
  720. R:            TYPE "R"
  721. S:            TYPE "S"
  722. T:            TYPE "T"
  723. U:            TYPE "U"
  724. V:            TYPE "V"
  725. W:            TYPE "W"
  726. X:            TYPE "X"
  727. Y:            TYPE "Y"
  728. Z:            TYPE "Z"
  729. CtlU:         TYPE 21
  730. SP:           TYPE 32
  731. CtlSp:        TYPE 0,57  ;????  <=====    Does anyone know how to do this?
  732. INS:          TYPE 0,82
  733. DEL:          TYPE 0,83
  734. Home:         TYPE 0,71
  735. AltD:         TYPE 0,32
  736. AltC:         TYPE 0,46
  737. AltF:         TYPE 0,33
  738. AltQ:         TYPE 0,16
  739. AltS:         TYPE 0,31
  740. AltT:         TYPE 0,20
  741. AltH:         TYPE 0,35
  742. AltA:         TYPE 0,30
  743. AltJ:         TYPE 0,36
  744. AltK:         TYPE 0,37
  745. AltL:         TYPE 0,38
  746. AltO:         TYPE 0,24
  747. AltR:         TYPE 0,19
  748. AltG:         TYPE 0,34
  749. CtlHome:      TYPE 0,119
  750. CtlEnd:       TYPE 0,117
  751. PgUp:         TYPE 0,73
  752. PgDn:         TYPE 0,81
  753. AltX:         TYPE 0,45
  754. AltN:         TYPE 0,49
  755. AltP:         TYPE 0,25
  756. AltV:         TYPE 0,47
  757. AltW:         TYPE 0,17
  758. AltY:         TYPE 0,21
  759. Alt0:         TYPE 0,129
  760. Alt1:         TYPE 0,120
  761. Alt3:         TYPE 0,122
  762. Alt5:         TYPE 0,124
  763. Alt6:         TYPE 0,125
  764. Alt8:         TYPE 0,127
  765. Alt9:         TYPE 0,128
  766. AltB:         TYPE 0,48
  767. AltE:         TYPE 0,18
  768. AltI:         TYPE 0,23
  769. AltM:         TYPE 0,50
  770. AltU:         TYPE 0,22
  771. AltZ:         TYPE 0,44
  772. AltEqual:     TYPE 0,131
  773. AltMinus:     TYPE 0,130
  774. ShTab:        TYPE 0,15
  775. ESCAPE:       TYPE Esc
  776. ScrENTER:     TYPE "^M"
  777. ScrPAUSE:     TYPE "^~"
  778. CtlLtArrow:   TYPE 0,115
  779. CtlRtArrow:   TYPE 0,116
  780. DnArrow:      TYPE 0,80
  781. UpArrow:      TYPE 0,72
  782. LeftM:        TYPE 0,75
  783. RightM:       TYPE 0,77
  784. Script:       TYPE "@SCRIPT"
  785. Shell:        TYPE "@SHELL"
  786. ShellX:       TYPE "@SHELLX"
  787. Dial:         TYPE "@DIAL"
  788. Help:         TYPE "@HELP"
  789. Edit:         TYPE "@EDIT"
  790. Stamp:        TYPE "@STAMP"
  791. PASSWORD:     TYPE "$PASSWORD"
  792. F1:           TYPE 0,59
  793. F2:           TYPE 0,60
  794. F3:           TYPE 0,61
  795. F4:           TYPE 0,62
  796. F10:          TYPE 0,68
  797. CtlD:         TYPE 4
  798. CtlR:         TYPE 18
  799. CtlP:         TYPE 16
  800. AltF1:        TYPE 0,104
  801. Alt13:        TYPE 0,28
  802. RETURN:       TYPE ENTER
  803. NoAction:     NOTHING
  804.